home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)expo87.d64 / kplay (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  34 lines
  1. 10 REM KPLAY BY CRAIG CHAMBERLAIN 7/85
  2. 20 REM TYPE RUN 100 FOR INSTRUCTIONS
  3. 30 IF PEEK(4785) GOTO 200
  4. 100 PRINT"[147][155]":POKE53280,0:POKE53281,0:FORK=1TO16:READS$:PRINT" "S$:NEXT
  5. 110 INPUT" [217][207][213][210] [206][193][205][197]";N$:IFLEN(N$)>10GOTO110
  6. 120 IFN$>""THENN$=", "+N$:FORK=1TOLEN(N$):POKE4784+K,ASC(MID$(N$,K))AND127:NEXT
  7. 130 POKE4785+LEN(N$),0
  8. 140 PRINT"[194]E SURE TO [211][193][214][197] THIS":PRINT"MODIFIED COPY OF THE PLAYER.
  9. 150 [129]K[178]1[164]3000:[130]:[129]K[178]1[164]23:[135]S$:[153]" "S$:[130]:[146]198,15:[161]K$
  10. 160 [129]K[178]1[164]22:[135]S$:[153]" "S$:[130]:[146]198,15:[161]K$
  11. 200 [158] 3816
  12. 800 [131]"(null)RIGHT$STR$(null)(null)ATN(null)VAL(null) (null)RIGHT$(null)LEFT$ (null)VAL(null)PEEK(null)ATN(null)STR$ STR$RIGHT$(null)(null)(null)ATN(null)","BY LENRAIG LENHAMBERLAIN",
  13. 801 [131]"(null)HIS IS AN ENHANCED VERSION",OF THE MUSIC PLAYING PROGRAM
  14. 802 [131]"FOUND IN (null)OLUME (null)WO OF","ATNLL ATNBOUT (null)HE LENOMMODORE 64.",
  15. 803 [131] "(null)HE PROGRAM PLAYS ALL","(null)IDPLAYER SONGS.",
  16. 804 [131]"(null)O PERSONALIZE THIS COPY OF","THE PLAYER, ENTER YOUR NAME,"
  17. 805 [131]"OR JUST PRESS (null)ETURN","TO CANCEL THE FEATURE.",
  18. 810 [131]"LOADRIGHT$N ADDITION TO (null)IDPLAYER,","(null)OLUME (null)WO CONTAINS SECTIONS ON...",
  19. 811 [131]"* ATNDVANCED PEEKATN(null)RIGHT$LEN","  (STR$VALASC, (null)(null)VAL(null), LEN(null)(null)(null)VAL, (null)ATNRIGHT$(null), (null)(null)(null), ETC.)",
  20. 812 [131]"* PEEKITMAPPED CHR$RAPHICS VALXTENSIONS","  (WITH NEW STATEMENTS ADDED TO
  21. 813 DATA"  [194][193][211][201][195], INCLUDING FAST [198][201][204][204] AND","  [211][200][193][208][197] DRAWING STATEMENTS)",
  22. 814 DATA"* [211]PRITE [195]ONTROL [211]YSTEM","  (WITH CONTINUOUS SPRITE MOTION,
  23. 815 [131]"  JOYSTICK CONTROL, AUTOMATIC SHAPE"
  24. 816 [131]"  CHANGING, AN EDITOR, AND MORE -","  SPRITE ANIMATION WITHOUT A
  25. 817 DATA"  SINGLE [208][207][203][197] STATEMENT!)",,"[212]HE BOOK DOES [206][207][212] ASSUME THAT
  26. 818 [131]"YOU HAVE READ (null)OLUME (null)NE.",,,(PRESS ANY KEY)
  27. 820 [131]"LOADATN(null)(null) ATNPEEK(null)(null)(null) (null)LEFT$VAL LEN(null)(null)(null)(null)STR$(null)(null)VAL 64: (null)(null)(null)(null)(null)VAL (null)(null)(null)","BY LENRAIG LENHAMBERLAIN",
  28. 821 [131]"ASCROM LEN(null)(null)(null)(null)(null)VAL! PEEKOOKS",,"$16.95",
  29. 822 [131]"RIGHT$(null)PEEK(null) 0-942386-45-0",,"ATNT YOUR LOCAL BOOKSTORE",
  30. 823 [131]"(null)R CALL TOLL FREE 1-800-334-0868",,
  31. 824 [131]"(null)HE POWER OF MACHINE LANGUAGE,","WITH THE CONVENIENCE OF PEEKATN(null)RIGHT$LEN...",
  32. 825 [131]"RIGHT$T TURNS YOUR LEN(null)(null)(null)(null)STR$(null)(null)VAL 64","INTO A WHOLE NEW COMPUTER!",,
  33. 826 [131](PRESS ANY KEY)
  34.